home *** CD-ROM | disk | FTP | other *** search
/ Ghosts: The Aircraft Of WWII 3 / Ghosts: The Aircraft of WWII - Volume 3.iso / pc / AzureBay Screen Saver 3.5.msi / Binary.NewBinary25 < prev    next >
Text File  |  2007-04-03  |  424b  |  12 lines
  1. Function InstallImageSet()
  2.     Dim fso, WSHShell, imgSetExePath
  3.     Set fso = CreateObject("Scripting.FileSystemObject")
  4.     Set WSHShell = CreateObject("WScript.Shell")
  5.     imgSetExePath = Session.Property("SETUPEXEDIR") & "\ImgInstall.exe"
  6.     If fso.FileExists(imgSetExePath) Then    
  7.         WSHShell.run chr(34) & imgSetExePath & chr(34), 5, True    
  8.     End If
  9.     Set WSHShell = Nothing
  10.     set fso = Nothing
  11.     InstallImageSet = 3
  12. End Function